home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Programme (19xx)(-)(de)[gt106b].d64 / data->sectors (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  424b  |  24 lines
  1. 80 INPUT"WRITE[146] OR END[146]";D$
  2. 90 IF D$<>"WRITE" THEN END
  3. 95 PRINT"<WRITING FILE>"
  4. 100 OPEN15,8,15,"I0"
  5. 110 INPUT#15,EN$,EM$,ET$,ES$
  6. 120 IFEN$="00"GOTO160
  7. 130 PRINT""EN$", "EM$","ET$","ES$
  8. 140 CLOSE15
  9. 150 END
  10. 160 OPEN2,8,2,"#"
  11. 170 READ TR,SE
  12. 180 IF TR=0THEN CLOSE2:CLOSE15:END
  13. 185 PRINT#15,"B-P";2;0
  14. 190 FOR I=0 TO 255
  15. 200 READ A
  16. 210 PRINT#2,CHR$(A);
  17. 220 NEXT
  18. 240 PRINT#15,"U2";2;0;TR;SE
  19. 250 INPUT#15,EN$,EM$,ET$,ES$
  20. 260 IF EN$="00"GOTO170
  21. 270 PRINT""EN$", "EM$","ET$","ES$
  22. 280 PRINT"[198][193][212][193][204][160][196][201][211][203][160][197][210][210][207][210]"
  23. 2000 DATA0,0
  24.